RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFFRRRFFFRFR FRFRRRRRRRRRPRFFF 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFFFRFRRRFRRRFR FRRRRRRPRRPPR PPE 
RRRRRRRRRRRR UUU UUU NNN NNN 000000000 FFFFFRRRFRRRRFRFR FPRRRRRRRRRR FFF 
RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU UUU NNN NNN 000 OOO FFF FFF 

RRR RRR UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNNNNN NNN 000 000 FFF FFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN 000 COO FFFFFFFFFFFF FFFFFFFFFFFF 
RRRRRRRRRRRR UUU UUU NNN NNN NNN OOO OOO FFFFFFFFFFFF FFFFFFFFFFFF 
RRR = RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU UUU NNN NNNNNN 000 000 FFF FFF 

RRR = =RRR UUU NNN NNNNNN 000 FFF FFF 

RRR R UUU UUU NNN NNN 0O0G 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUU UUU NNN NNN 000 000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NN NNN 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU NNN NNW 000000000 FFF FFF 

RRR RRR UUUUUUUUUUUUUUU =~ NNN NNN 006000000 FFF FFF 
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] 
! Version: *v04-000' 


MARSSASESLSLIS ICSI SEIS ET PTT TTT Tec rece crt c recite TTT Teri T iti eit a iitiiit tt 


ie COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
ie DIGITAL EQUIPMENT CORPORATION," MAYNARD. MASSACHUSETTS. 
it ALL RIGHTS RESERVED. 


® 
® 
® 
o 
‘* THIS SOFTWARE 4 FURNISHED wee A LICENSE AND MAY BE USED AND ag 1 * 
t* ONLY IN ACCORDANCE ae THE TER A OF SUCH bie ENSE AND WITH THE * 
!* INCLUSION OF THe ABOVE  pehers NOTICE. THIS SOFTWARE OR ANY OTHER * 
ie COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
:* OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
!t TRANSFERRED. ° 
4 * 
hl phe. INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOU ee 
:* AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL E 29 
!* CORPORATION. * 

® 

® 

& 

® 

® 

*® 


i DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
:* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. 


T NOTIC 
G QUIPMEN 


SRR ERE REET ATA e eee eee eee 
' 


lee 
i FACILITY: DSR (Digital Standard RUNOFF) / DSRPLUS 


: i ABSTRACT: 

Definitions related to the data stack on which formatting information 
is saved by the .NOTE and .LIST commands. Information is removed by 
.END NOTE and .END LIST commands. 


i ENVIRONMENT: Compatible BLISS 


{ AUTHOR: Rich Friday 
! CREATION DATE: 1978 
: i MODIFIED BY: 
003 KAD00003 Keith Dawson 07-Mar-1983 


Global edit of all modules. Updated module names, idents, 
copyright dates. Changed require files to BLISS library. 


LITERAL 
FRMSTK_LIMIT = CL DEFAULT SIZE; 
‘Maximum depth of the stack. It is 15 at 
! this point; pur oe actual value is kept 
i only in CLisT. 
LITERAL 


FRMSTK_FILL = 01, ! A copy of os peas 


Cc 
— 
at 
nm 
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FRRETESaMSTH'Y 2 68-1 copy of Sea.gustary 
=Q5, ! A copy o 
FRMSTK_L = 04, $!A copy of SCA_LM 
FRMSTK SPACING = 05, ! A copy of SCA_SPACING 
FRMSTK_COMMAND = g. ! The handler code for the command responsible for this entry 
FRMSTK_ISEQN = 07, ! The input sequence number for the command 
FRMSTK_IPAGEN = 08, ! The input page number for the command 
FRMSTK_FSPECP = 09, ! A reference to the file-spec in which the command occurred. 
FRMSTK_FSPECC = 10, ! The length of the file-spec in which the command occurred. 
FRMSTK_REQ_D = 11, ! The .REQUIRE nesting level in effect 
FRMSTK_CROCK = \¢- ! A copy of SCA_CROCK 
HMMBTESReReNTS = fe: A S0By SF eA oT 
= 14, ! A copy o 
FRMSTK_INDEX = 15; $!IA copy of SCA_INDEX. 
LITERAL 
FRMSTK_ITEM_CNT = 15; ! Number of pieces of info per entry 


‘One more a | is allocated than requested so than the routine 
sh pecans iterals) can save information. 
FORM STACKCI,J;N=FRMSTK_ITEM_CNT,M=FRMSTK_LIMIT) = 
CXUPVAL*®( Ne(M + 1) )J 
(FORM_STACK + ZUPVAL®( (] = 1)*#N + J = 1) ); 


End of FRMSTK.REQ 
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